home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / QuickDraw GX / QuickDraw GX Info / QuickDraw GX Interfaces / Interfaces & Libraries / Pascal Interfaces & Libraries / Pascal Interfaces / GraphicsMacintosh.p < prev    next >
Encoding:
Text File  |  1994-04-02  |  1.3 KB  |  50 lines  |  [TEXT/MPS ]
  1. { 
  2.  graphics:
  3.     Macintosh interfaces
  4.     by Cary Clark, Georgiann Delaney, Herb Derby, Michael Fairman, Pablo Fernicola, Dave Good, Josh Horwich, Barton House, Robert Johnson, Keith McGreggor, Mike Reed, Oliver Steele, David Van Brink, Chris Yerga
  5.     Copyright 1987 - 1994 Apple Computer, Inc.  All rights reserved.
  6. }
  7.  
  8. {$IFC UNDEFINED UsingIncludes}
  9. {$SETC UsingIncludes := 0}
  10. {$ENDC}
  11.  
  12. {$IFC NOT UsingIncludes}
  13.     UNIT GraphicsMacintosh;
  14.     INTERFACE
  15. {$ENDC}
  16.  
  17. {$IFC UNDEFINED UsingGraphicsMacintosh}
  18. {$SETC UsingGraphicsMacintosh := 1}
  19.  
  20.  
  21. CONST
  22.     
  23.     { Graphics Gestalt Constants }
  24.     gestaltGraphicsVersion             = 'grfx';        { gestalt version selector }
  25.     gestaltCurrentGraphicsVersion    = $00010000;    { the version described by these headers }
  26.  
  27.     gestaltGraphicsAttr                = 'gfxa';        { gestalt attributes selector }
  28.     gestaltGraphicsIsDebugging        = $00000001;
  29.     gestaltGraphicsIsLoaded            = $00000002;
  30.     gestaltGraphicsIsPowerPC        = $00000004;
  31.  
  32.     { Polling Handler Constants }
  33.     defaultPollingHandlerFlags        = $00;
  34.     okToSwitchDuringPollFlag        = $00;
  35.     dontSwitchDuringPollFlag        = $01;
  36.  
  37. TYPE
  38.     GxPollingHandlerFlags = LongInt;
  39.     GxPollingHandlerProcPtr = ProcPtr;
  40.  
  41. FUNCTION GXGetGraphicsPollingHandler(VAR reference: LongInt) : GxPollingHandlerProcPtr; C;
  42. PROCEDURE GXSetGraphicsPollingHandler(handler: GxPollingHandlerProcPtr; reference: LongInt); C;
  43.  
  44. {$ENDC}
  45.  
  46. {$IFC NOT UsingIncludes}
  47.     END.
  48. {$ENDC}
  49.  
  50.